home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cgraphix / clins.c < prev    next >
Text File  |  1986-05-28  |  645b  |  41 lines
  1. /* «RM120»«PL99999»«TS4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76» */
  2. #include    <stdio.h>
  3. #define    EXTERN    extern
  4. #include    <typedef.h>
  5.  
  6.  
  7. main()
  8. {
  9.     int i;
  10.  
  11.  
  12.     InitGraphic();                /* init the system and screen    */
  13.     DefineWorld(1, 0., 0., 1000., 1000.);
  14.     SelectWorld(1);
  15.     SelectWindow(1);
  16.     SetBackground(0x11);
  17.     DrawBorder();
  18.  
  19.     for (i = 1; i <= 20; i++)
  20.         DrawLine(50.*i, 0., 1000.-50.*i, 50.*i);
  21.  
  22.     CopyScreen();
  23.     SaveScreen("picture.pic");
  24.     inkey();
  25.  
  26.     InvertScreen();
  27.     inkey();
  28.  
  29.     SwapScreen();
  30.     inkey();
  31.  
  32.     SwapScreen();
  33.     inkey();
  34.  
  35.     LoadScreen("picture.pic");
  36.     inkey();
  37.  
  38.     LeaveGraphic();
  39. }
  40.  
  41.